Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 013 / findup32.arc / FINDUP32.DOC < prev next >

Wrap

Text File | 1986-01-15 | 15.3 KB | 242 lines

Program FindDupe is placed in the public domain by the author. It is however copyrighted and all rights and ownership are kept with the author. You may use it, copy it, give it to your friends but don't try to sell it. Because the devil will get you and if I find out I will prosecute. The program is a Turbo Pascal Program that reads the directories of your disks - it really only works best with hard disks because you don't usually have sub directories on floppies. The program will print on paper (using Epson controls - only form feed) or the screen. It will give you a list of all files, sorted by file name, date, time, size and directory there in. It will also tell you if the file is read only, hidden, system or sub directory. It will give you a list of all duplicate named files on your disk, with the same above information. It will give you a Sorted Tree Dir of the files on your disk with the above information. Provided is the source FINDUP30.PAS, but to compile the program you need the Borland Package TURBO TOOLBOX because it has the sort routines that are used in the program. If you don't have it; don't fret because in the library is also findup30.com which has been compiled with the sort in it. Best of luck in your computing and may this program help you in keeping your machine manageable. Karson W. Morrison RD1, Box 531, Ringoes NJ. 08551 (201)-788-1846 Version 2.1 modifications Version 2.1 October 27, 1985 Modifications by Ray Bobak Sysop PC-RAIN Node II Wappingers Falls, NY 914-462-7674 (data) Updated code so that the input string from the command line was a list of drives to perform the services on. This change was made to allow SYSOP's with multiple download drives to scan all his download drives for duplicates. (Here you go Charlie, your name in lights.) This version was inspired by Charlie Innusa, a sysop running RBBS-PC on only nine 32 Megabyte download drives. You can call his BBS, PC-Rockland at 914-353-2157 Subscription node, or 914-353-2176 free node FINDUP21 can now search across multiple drives. Just string the drive letters after the program name. The command 'FINDUP21 ABCDEFGHIJKLMNOP' will cause FINDUP21 to search across drives A, B, C, D, E, F, G, ... O, and P. Running this progam on your LAN may be detrimental to your networks performance! Note: sorting may take a large amount of temporary disk space. For 10K files, an 800K datafile is used for intermediate storage of the sort. Make sure you have the space! Hope this helps all those SYSOP's out in keeping thier BBS's free of duplicate files on their multi-drive file systems. Ray Bobak (aka The Wiz) Wappingers Falls, NY October 27, 1985 Sysop - PC-RAIN Node II Wappingers Falls, NY (914)-462-7674 (data only) ╔══════════════════════════════════════════════════════════════════════╗ ║ Requirements: ║ ║ ║ ║ This program requires Turbo Pascal 3.0 and the Turbo Toolbox ║ ║ pascal program SORT.BOX. The .COM version has already been ║ ║ compiled with the SORT in it. ║ ╠══════════════════════════════════════════════════════════════════════╣ ║ This program was written by and Copyright (C) 1985 by ║ ║ ║ ║ Karson W. Morrison ║ ║ RD. 1, Box 531, ║ ║ Ringoes, NJ. 08551 ║ ║ (201) 788-1846 ║ ╠══════════════════════════════════════════════════════════════════════╣ ║ Acknowledgements: ║ ║ ║ ║ I used info picked up from a bulletin board for the routines ║ ║ to get system date and time. That info. was created by Jon Gray ║ ║ of the IBM PC USERS GROUP Milwaukee. It did have a bug though ║ ║ that would only work with months of 2 digits (now fixed by me). ║ ║ ║ ║ I also used routines provided by Borland for the reading of ║ ║ directories. This info was provided in their Turbo Tutor package. ║ ║ ║ ║ Tears: ║ ║ ║ ║ A lot of hours went into this program please do not revise it and ║ ║ leave out the credit that I have done most of the work. ║ ║ ║ ║ Purpose: ║ ║ ║ ║ Every time I turned around I was trying to delete some of the ║ ║ files on my hard disk because I was always ending up with only ║ ║ 300 - 400 K left. I kept thinking there must be an easier way ║ ║ to know if there were duplicate files. ║ ║ ║ ║ This is the result ║ ╠══════════════════════════════════════════════════════════════════════╣ ║ Version 2.0 March 25, 1985 ║ ║ Made by the author. ║ ║ ║ ║ Updated program to put file size on each line and put in a major ║ ║ option for Sorted Tree Directories. ║ ║ ║ ║ Every Tree Dir program that I have seen always intersperces sub ║ ║ directories files where it finds them with the regular files in ║ ║ that directory. This program put files together, followed by ║ ║ the sub directory files in that directory. The sub directories ║ ║ are sorted, and then printed in the sorted order within the ║ ║ the parent directory. ║ ║ ║ ║ Updated program to put output on a file DIRECTRY.DTA as an option ║ ║ for later printing or other modification. ║ ╠══════════════════════════════════════════════════════════════════════╣ ║ Version 2.01 April 23, 1985 ║ ║ Made by the author. ║ ║ ║ ║ Made a change to increase the valid characters that may be in a ║ ║ file name. The 7Fh, DEL char may be in a file name there by ║ ║ making the file name unable to be entered from the keyboard. ║ ║ ║ ║ This also is used to make a directory hidden. ║ ║ Fix the line which prints on the screen when a report is being ║ ║ produced on paper. ║ ╠══════════════════════════════════════════════════════════════════════╣ ║ Version 2.02 July 28, 1985 ║ ║ Made by the author. ║ ║ ║ ║ Made a change to put a Clrscr in at the beginning of the program. ║ ║ This was necessary if you use the Public Domain program to reset ║ ║ the clear screen at the begining of the program. ║ ║ Turbo 3.0 also doesn't clear screen at beginning of program. ║ ╠══════════════════════════════════════════════════════════════════════╣ ║ Version 2.03 September 9, 1985 ║ ║ Made by the author. ║ ║ ║ ║ Made a change to calculate to space used for 1K blocks which is ║ ║ what is used when the data is stored on a floppy. ║ ╠══════════════════════════════════════════════════════════════════════╣ ║ Version 2.04 November 11, 1985 ║ ║ Made by author ║ ║ ║ ║ Made a change to the first screen so that it would be easier to ║ ║ understand the options. Included Windows by Lynn Canning, ║ ║ with the original code by Lane Farris. ║ ╠══════════════════════════════════════════════════════════════════════╣ ║ Version 3.00 December 12, 1985 ║ ║ Made by author ║ ║ This version now requires Turbo 3.0 ║ ║ ║ ║ This version now will read multiple hard disks and floppies and ║ ║ do its thing on the file names. ║ ║ ║ ║ Option 1, 2, 4 will allow you to go to the screen, printer ║ ║ or disk file. ║ ║ Option 3 will only go to disk file 'DIRECTRY.DTA' for the ║ ║ directory and 'DUPLICAT.DTA' for the duplicate ║ ║ entries. ║ ║ ║ ║ Option 4 Sorted Tree Directory uses the Drive letter as its ║ ║ major sort key. Therefore it will not mix up file ║ ║ and directories names from multiple drives. ║ ║ ║ ║ This version of the program also supports floppies. The program ║ ║ would read them before but the output was not too useful because ║ ║ only one floppy could be read at a time. *** NOW *** the program ║ ║ asks you if you are reading a hard drive or a floppy. Nothing ║ ║ happens to the machine if you answer the wrong answer, it is to ║ ║ allow me to know if I should VolumeID the disk (I don't on Hard ║ ║ Disks). If you want me to Volume-ID a floppy just enter the data. ║ ║ (What you enter will also show on the report as the main directory ║ ║ If you don't enter a Volume-ID (return) I show the name 'FLOPPYnnn' ║ ║ as the main directory. (nnn is the number of the diskette entered) ║ ║ ║ ║ If you want to speed up the entry process, and you have two or more ║ ║ floppy drives run the program as FINDDUPE AB. The program will ║ ║ alternate between the drives. (NOTE:) one problem in using this ║ ║ feature you must have a floppy for both A and B drives. (You could ║ ║ place a blank formatted floppy in the last B: drive to insure ║ ║ the completion of the input phase.) ║ ║ ║ ║ ║ ║ Included into version 3.00 are changes made by Ray Bobak as he ║ ║ noted above. ║ ║ ║ ╠══════════════════════════════════════════════════════════════════════╣ ║ Version 3.01 made by the author was a minor change to fix the time ║ ║ when the hour was a one digit hour 1..9 am. This program was never ║ ║ released into the public. The arc file issued by the author was ║ ║ also missing the windo.inc file. ║ ╠══════════════════════════════════════════════════════════════════════╣ ║ Version 3.02 made by the author was made to properly handle the ║ ║ floppy drive and the output when processing floppies on a floppy ║ ║ system. Unfortunatily I tested it on a hard disk system. I created║ ║ the output file on a floppy (the first one that you wanted to read) ║ ║ and when I got around to writing the output, you now had a different║ ║ floppy in the drive -- the program abended. I also cleaned up the ║ ║ input of the command line. If you enter FINDDUPE A:B: I will ║ ║ delete the colon before processing the data. ║ ║ ║ ║ I also changed the program to allow a volume-id to be read with ║ ║ imbedded blanks in it. Version 3.0 stopped the Volume-id at the ║ ║ first blank. I now start at position 11 and back up to the first ║ ║ non-blank character and say that the volume-id is that many chars. ║ ║ long. ║ ║ ║ ║ Keep the cards and letters flowing with changes, revisions needed ║ ║ etc. The next planned change is to prompt for deletion in the ║ ║ duplicate file phase. I know where the duplicates are I just need ║ ║ you to tell me which one to delete (if you wnat to that is). ║ ║ ║ ╚══════════════════════════════════════════════════════════════════════╝ ╔══════════════════════════════════════════════════════════════════════╗ ║ Yours for better Computing ║ ║ Karson W. Morrison Caleb Computing Center║ ╚══════════════════════════════════════════════════════════════════════╝ ╔══════════════════════════════════════════════════════════════════════╗ ║ ║ ║ NOTE: ║ ║ ║ ║ A command line is used as input if entered else the default drive ║ ║ is used. ║ ╚══════════════════════════════════════════════════════════════════════╝